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RR RR EE LL 00 cc DD D> RR RR VV VV 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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; RELOCATE DRIVER DATABASE 
; MODIFICATION HISTORY: 


v03-003 LMP0221 L. Mark Pilant, 26-Mar-1984 16:02 
an ORB to the List of known structures that may be 
initialized. 


v03-002 ROW0289 Ralph Weber 26-JAN-1984 
Add DDTSL_MNTV sap, PDD TsL WaNTV FOR, and DDT$L_MNTV_SSSC to the 
List of DBT cells to be relocated. Update size of DDT in 
ASSUME statement. 


v03-001 R h 0. Weber 19-SEP-1982 
Add “DbTSL CLONEDUCB? to list P<! DDT cells to be relocated. 
Update size of DDT in ASSUME statement. 

v02-003 KTA0058 Kerb o7 0) . Altmann 30-Dec-1981 
Change name to IOCSRELOC_DDT so symbol len <= 15. 


v02-002 JLV0047 Jake 13-Jul-1981 
Added IOC$RELOC DoT EDT mer ted from SYSGEN and the 
INIT module in SYS fo relocate DDT's and FDT's to 
absolute system addreses. 
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: 3:9? ye Macr 
:46:54 ([SYS.SRCIRELOCDRV.MAR; 1 v¢ 
28 SDDTDEF ;DEFINE DDT OFFSETS 
SCRBDEF ;DEFINE CRB OFFSETS 
¢ SODBDEF ;DEFINE DDB OFFSETS 
6 SOPTDEF DEFINE DPT OFFSETS 
86 SDYNDEF ;DEFINE DATA STRUCTURE TYPES 
6 SIDBDEF DEFINE IDB OFFSETS 
8 64 SUCBDEF DEFINE UCB OFFSETS 
0 65 SVECDEF DEFINE VEC OFFSETS 
00 96 
00 3 : LOCAL DATA 
ae 
B08 4 ; STRUCTURE TYPE BYTE ARRAY 
0000 ie 
aoa 464 7 -PSECT ZSINIT_DORIVER 
10 09 06 05 000 74 STYPE: .BYTE DYNSC_CURB,DYNSC_DDB,DYNSC_IDB,DYNSC_UCB ; 
49 Babe a -BYTE DYNSC_ORB : 
4 of ASSUME DDTSC_LENGTH EQ 56 ; So new entries in DDT will be added here 
Bape 4 RELOC_DDT_TABLE: ; All these offsets in the DDT must be relocated 
00 0005 81 -BYTE DDTSL_START 
04 444 Hf -BYTE DDTS$L_UNSOLINT 
08 B08 8 -BYTE DDTSL_FDT 
0c 0008 84 DOTSL_CANCEL 
10 0009 85 _REGDUMP 
18 OQOQ0A a6 DOTSL_UNITINIT 
1¢ 0008 8 DDTSL_ALTSTART 
0 000C 88 _MNTVER 
4 0000 89 DOTS$L_CLONEDUCB 
C 4 90 -MNTV_SSSC 
0  Q00F 91 DOTSL_MNTV_FOR 
4 010 38 DDOTSL_MNTV_SQD 
FF 0011 9 - ; End of table 
0012 94 


————————— oo 
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Wi raed INT TEAC LTE DRIVER DATA BASE -SEP=1 138 83:9 +03: ; SYS.SRCJRELOCDRV.MAR; 1 . d) 
: ; .SBTTL INITIALIZE DRIVER DATA BASE 
§ : ZOCSINITDRV = INITIALIZE DRIVER DATA BASE 
1@ 1 0 : THIS ROUT INE IS CALLED AFTER HAVING LOADED ALL OR PART OF A DEVICE DATA BASE. 
12 101 : IT MUST BE CALLED FOR EACH UNIT THAT IS DEFINED. ITS FUNCTION I$ TO USE THE 
W:4 ; : INITIALIZATION TABLE IN THE DRIVER PROLOGUE TO INITIALIZE STATIC INFORMATION 
4) 33 IN THE DRIVER DATA BASE. 
0 5 : INPUTS: 
121 5 : R4 = ADDRESS OF DRIVER PROLOGUE TABLE. 
5 : RS = ADDRESS OF DEVICE UCB. 
91 110 : OUTPUTS: 
01 118 : THE DRIVER PROLOGUE TABLE IS INTERPRETED AND THE RESPECTIVE DATA BASE 
01 113 : IS INITIALIZED. 
01 115 : RO LOW BIT CLEAR INDICATES A BAD DATA STRUCTURE. 
091 11? : RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
001 119 ° 
0012 120 sENABL LSB 
0012 121 IOCSINITOR s INITIALIZE DRIVER DATA BASE 
53 10 a6 3C OO12 1 g MOVIUL DPTSW_INITTAB(R4),R3 GET OFFSET TO INITIALIZATION TABLE 
06 11 0016 1 BRB 10$ ‘BR TO C CODE 
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) 
~SBTTL REINITIALIZE DRIVER DATA BASE 
IOCSREINITORV = REINITIALIZE DRIVER DATA BASE 


THIS ROUTINE IS CALLED AFTER als Yah: DRIVER WHOSE pevict DATA ae IS 
ALREADY RESIDENT IN MEMORY, ar T BE C wait FOR EACH UNIT THAT IS DEFI 
ioe ae IS TO INITIALIZ ONLY THOSE FIELDS IN THE DATA BASE THAT ARE NOT 
INPUTS: 

R4 = ADDRESS OF DRIVER PROLOGUE TABLE. 

RS = ADDRESS OF DEVICE UCB. 
OUTPUTS: 


THE DRIVER PROLOGUE TABLE IS INTERPRETED AND THE RESPECTIVE DATA BASE 
IS REINITIALIZED. 


RO LOW BIT CLEAR INDICATES A BAD DATA STRUCTURE. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
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IOCSREINITORV:: ;REINITIALIZE DRIVER DATA BASE 
53 1206 3 MOVZWL DPT$W_REINITTAB(R4),R3 :GET OFFSET TO REINITIALIZATION TABLE 
53 54—CCiCO 10$: ADDL  R4,R3~ [CALCULATE ADDRESS OF INITIALIZE TABLE 
SF 10 20$:  ®BSBB toeA TE SLOCATE STRUCTURE TYPE 
51 83 9A MOVZBL (R3)+,R1 [GET OFFSET IN STRUCTURE 
5251S ADDL  R1,R2° [CALCULATE BASE ADDRESS OF FIELD 
51 83 OA MOVZBL (R%)+,R1 [GET OPERATION CODE 
02 10 BSBB XE CUTE SEXECUTE OPERATION CODE 
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rae tf LOCAL SUBROUTINE TO LOCATE DATA STRUCTUR ato ty 7 84:03:92 YOYS SRCIRELOCDRV MAR: 1 ” «ds 
4 ; .SBTTL LOCAL SUBROUTINE TO LOCATE DATA STRUCTURE TYPE 
$ LOCATE = LOCATE DATA STRUCTURE TYPE 
: INPUTS: 
4 ; RS = ADDRESS OF DEVICE UCB. 
0 26 : OUTPUTS: 
0 i : IF THE STRUCTURE TYPE CODE IS ZERO, THEN SUCCESS IS RETURNED TO THE CALLERS 
0 59: CALLER. IF THE STRUCTURE TYPE CODE IS INVALID, THEN AN ERROR IS RETURNED 
60 ; TO THE CALLERS CALLER. ELSE THE APPROPRIATE STRUCTURE BASE ADDRESS IS 
: ‘ ; RETURNED IN R2. 
0 63° 
0 5 64 LOCATE: ZLOCATE DATA STRUCTURE TYPE 
50. (01 88 0 9 65 BISB = #1, RO TASSUME END OF RELOCATION TABLE 
63 9 0 66 TSTB. ss (RS) SEND OF TABLE? 
14 13 5 (6 BEQL 108 TIF EQL Y 
FF73 CF «600S)=—B3)Ssi3A—s«(0087 68 LOCC  (R3)+,#5,STYPE SLOCATE STRUCTURE CODE 
080 $9 CASE RO, <- i DISPATCH TO STRUCTURE ROUTINE 
08D 271 208; [UCB 
b08D es 0$.- 7108 
008D 27 40$,- DDB 
08D 274 50$.- CRB 
08D 275 >, LIMIT=#1 : 
8E Bs 0098 id: 10$: TSTL (§P)+ ‘REMOVE RETURN FROM STACK 
O9E 27 ‘ 
BOSE 8 ; 
0096 9 + UCB STRUCTURE 
09E : 
52. 55 v0 si 20S: MOV R5S,R2 ;SET UCB ADDRESS 
OA 5 . 
OA § 3 
i : 3; IDB STRUCTURE 
OA , 
52 24 A5 DO OOA 0 30$:  MOVL UCBSL_CRB(RS),R2 :GET ADDRESS OF CRB 
52 aC A2 : A6 1 MOVL CRBSL-INTD+VECSL_IDB(R2).R2 ;GET ADDRESS OF IDB 
m § RSB 3 
AB 4; 
AB : + DDB STRUCTURE 
AB O97 
52. 28 AS 00 AB : 40$:  MOVL UCBSL_DDB(RS),R2 7GET ADDRESS OF DDB 
0 AF 29 RSB ; 
1; 
4 § 3 CRB STRUCTURE 
4 oO 


<z 


LSB 


52 


52 


24 AS 


1C AS 


- RELOCATE DR 
LOCAL SUBROUT 


{ 


05 0089 


INE" 


DATABAS 
TO LOCAT 


E paTA structur '$- 


MOVL UCBSL_CRB(RS 
RSB 


é 50$: 

ORB STRUCTURE 
eo 

13 


MOVL UCBSL_ORB(R5S 
RSB 


SEP=-1 
SEP=1 


),R2 


),R2; 
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RELOCORV = RELOCATE DRIVER DATABASE 16-SEP-1984 103: ; AX/VMS Macro v04-00 Pa aa R 
irae IOCSRELOC_DDT = relocate DDT and FDT to -SEP-1984 83:92 Heys” SRC JRELOCDRV.MAR; 1 - (1) Ss 
A 13 -SBTTL IOCSRELOC_DDT - relocate DDT and FDT to system addresses . 
BA i + t 
eh : : FUNCTIONAL DESCRIPTION: 
A : This routine will relocate any driver-relative addresses to be 1 
oan : absolute system addresses. : 
OBA 4 : CALLING SEQUENCE: 1 
OBA : ; JSB 1OCS$RELOC_DDT 4 
OBA 8 : INPUTS: P 
OBA 9 ; R11 = Address of DDB 
SOBA 3 : OUTPUTS: 
Open : : R4,R5,R6 are destroyed, DDT and FDT are relocated. 
OBA 5 : COMPLETION CODES: 
QOBA 38 : None. 
OOBA 39 ; 
SOBA ch 
OOBA 2g IOCSRELOC_DDT:: 
OOBA 3g 
QOBA 45 ; Relocate the driver dispatch table (DDT) 
SOBA 39 
55 FF47 CF QE OOBA 48 MOVAB RELOC_DDT_TABLE,R5 3; Address of offsets table 
54 OC AB. DO pret ry MOVL DDBSL_DDTTR11) ,R4 3; Addess of DDT 
56 85 98 ite 51 10$: CVTBL (R5)+,R6 3; Get next offset 
of 19 44 26 BLSS 20$ : Branch if end of table P 
56 4 CO be 5 ADDL2 R4,R6 3; Add start address a driver to offset ad 
F466 4 #61F~ = 6E0 cB 54 BBS #31, (R6),10$ ; Branch if already system address I 
66 54 CO OOCF 355 ADDL2 R4, (RO) : Add in driver base C 
EF 11 00d2 36 BRB 10$ : Loop P 
oa ; 
Spe 8 : Relocate the function dispatch table (FDT) S 
gee 
55 3s AS) «3C D4 66 20$ MOVZWL DDTSW_FDTSIZE(R4) RS ; Size of FDOT A 
54 8AS OD D8 6 MOVL Be TS oF OF CBS? LAS 3; Address of FDT 
5 4 ¢ DC 64 ADDL R4,R ; Add in base Of FDOT to get end T 
4 4 C DF 65 ADDL #4,R4 : Initial offset pest legal and 4 
: $6 3 buffered 1/0 mask T 
54 g co E o8 30$: ADDL2 #12,R4 3; Get next dispatch block (12 bytes) ; 
54 +f E 8 CMPL Ree R4 3; Past end ? 
5 E 0 BLEQ 40$ 3; branch if yes 
F308 AS 1F-~ £0 EA 71 BBS #31,8(R4) ,30$ ; Branch if already system address 
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PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL eee NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 ¢ 0.) O01 ¢ 1.) NOPIC USR CON ABS LCL N EXE RD WRT NOVEC BYTE 
ZSINIT_DRIVER OOOO00F6 ¢ 246.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC BYTE 


Geweweeecocesoesocceecoecns 


Phase Page faults CPU Time Elapsed Time 


nitialization : :00:02. 

Initiali i 5 1 0 52 
zonnane processing } $ + : 3 3: : 3 
Symbol table sort :00: §°3 0:00:03. § 
Pass 7 :00:01.4 3: : 23 
Symbol table output 0.06 :00:00.39 
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RELOCDRV = RELOCATE DRIVER DATABASE i i at 9 93:9 
VAX-11 Macro Run Statistics -SEP=1984 74 


Sn a a a 


The york ing sgt Limit was 1350 pages. 

36935 bytes (73 pages) of virtual memory were used to buffer the intermediate sgde. 

There were 40 pages of symbol table space allocated to hold 644 non-local ies local symbols. 
377 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

17 pages of virtual memory were used to define 16 macros. 


3:07 AX/VMS Macro v04-00 
6:54 L[SYS.SRCIJRELOCDRV.MAR;1 


Macro Library name Macros defined 


B.MLB;1 9 
$255S$DUA28: (CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 13 


738 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RELOCDRV/OBJ=OBJ$:RELOCDRV MSRC$:RELOCDRV/UPDATE=(ENHS$:RELOCDRV) +EXECML$/LIB 
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